home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TOT_2.ARJ / DEMO.EXE / arc / DEMCU1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  760b  |  42 lines
  1. program DemoCursorOne;
  2.  
  3. uses DOS,CRT,
  4.      totSYS, totFAST;
  5.  
  6. var
  7.   Ch : char;
  8.   Temp: byte;
  9.  
  10. procedure msg;
  11. {}
  12. begin
  13.    writeln('Character height: ',Screen.CharHeight);
  14.    writeln('Press N-on O-off F-full H-half C-condensed S-25 lines Esc-quit');
  15. end; {Msg}
  16.  
  17. begin
  18.    Msg;
  19.    repeat
  20.       Ch := ReadKey;
  21.       case upcase(Ch) of
  22.       'N': Screen.CursOn;
  23.       'O': Screen.CursOff;
  24.       'F': Screen.CursFull;
  25.       'H': Screen.CursHalf;
  26.       'C': begin
  27.                Monitor^.SetCondensed;
  28.                Msg;
  29.            end;
  30.       'S': begin 
  31.                Monitor^.Set25;
  32.                Clrscr;
  33.                Msg;
  34.            end;
  35.       end; {case}
  36.    until Ch = #027;
  37.    Screen.CursOn;
  38.    Monitor^.Set25;
  39. end.
  40.  
  41.  
  42.